/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / rcompile.elc.z / rcompile.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 32 37 3a 34 30 20 31 |an 14 06|:27:40 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 72 63 6f 6d 70 69 |19.0/lis|p/rcompi|
|00000070| 6c 65 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |le.el.;;|; emacs |
|00000080| 76 65 72 73 69 6f 6e 20 | 31 39 2e 33 30 2e 37 30 |version |19.30.70|
|00000090| 2e 36 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.6..;;; |bytecomp|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000b0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000c0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000d0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000e0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|000000f0| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000100| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000110| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000120| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000130| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000140| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n)..    |
|00000160| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000180| 2e 32 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |.29"))).|    (err|
|00000190| 6f 72 20 22 60 72 63 6f | 6d 70 69 6c 65 2e 65 6c |or "`rco|mpile.el|
|000001a0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 32 39 20 6f |or Emacs| 19.29 o|
|000001c0| 72 20 6c 61 74 65 72 22 | 29 29 0a 0a 0a 28 62 79 |r later"|))...(by|
|000001d0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c2 c3 21 |te-code |"..!...!|
|000001e0| 87 22 20 5b 70 72 6f 76 | 69 64 65 20 72 63 6f 6d |." [prov|ide rcom|
|000001f0| 70 69 6c 65 20 72 65 71 | 75 69 72 65 20 63 6f 6d |pile req|uire com|
|00000200| 70 69 6c 65 5d 20 32 29 | 0a 23 40 33 32 20 2a 48 |pile] 2)|.#@32 *H|
|00000210| 6f 73 74 20 66 6f 72 20 | 72 65 6d 6f 74 65 20 63 |ost for |remote c|
|00000220| 6f 6d 70 69 6c 61 74 69 | 6f 6e 73 2e 1f 0a 28 64 |ompilati|ons...(d|
|00000230| 65 66 76 61 72 20 72 65 | 6d 6f 74 65 2d 63 6f 6d |efvar re|mote-com|
|00000240| 70 69 6c 65 2d 68 6f 73 | 74 20 6e 69 6c 20 28 23 |pile-hos|t nil (#|
|00000250| 24 20 2e 20 2d 35 32 36 | 29 29 0a 23 40 38 37 20 |$ . -526|)).#@87 |
|00000260| 55 73 65 72 20 66 6f 72 | 20 72 65 6d 6f 74 65 20 |User for| remote |
|00000270| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 73 2e 0a 6e 69 |compilat|ions..ni|
|00000280| 6c 20 6d 65 61 6e 73 20 | 75 73 65 20 74 68 65 20 |l means |use the |
|00000290| 76 61 6c 75 65 20 72 65 | 74 75 72 6e 65 64 20 62 |value re|turned b|
|000002a0| 79 20 5c 5b 75 73 65 72 | 2d 6c 6f 67 69 6e 2d 6e |y \[user|-login-n|
|000002b0| 61 6d 65 5d 2e 1f 0a 28 | 64 65 66 76 61 72 20 72 |ame]...(|defvar r|
|000002c0| 65 6d 6f 74 65 2d 63 6f | 6d 70 69 6c 65 2d 75 73 |emote-co|mpile-us|
|000002d0| 65 72 20 6e 69 6c 20 28 | 23 24 20 2e 20 36 30 38 |er nil (|#$ . 608|
|000002e0| 29 29 0a 23 40 32 33 39 | 20 2a 43 6f 6d 6d 61 6e |)).#@239| *Comman|
|000002f0| 64 20 74 6f 20 72 75 6e | 20 62 65 66 6f 72 65 20 |d to run| before |
|00000300| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2e 0a 54 68 69 |compilat|ion..Thi|
|00000310| 73 20 63 61 6e 20 62 65 | 20 75 73 65 64 20 66 6f |s can be| used fo|
|00000320| 72 20 73 65 74 74 69 6e | 67 20 75 70 20 65 6e 76 |r settin|g up env|
|00000330| 69 72 6f 6e 6d 65 6e 74 | 20 76 61 72 69 61 62 6c |ironment| variabl|
|00000340| 65 73 2c 0a 73 69 6e 63 | 65 20 72 73 68 20 64 6f |es,.sinc|e rsh do|
|00000350| 65 73 20 6e 6f 74 20 69 | 6e 76 6f 6b 65 20 74 68 |es not i|nvoke th|
|00000360| 65 20 73 68 65 6c 6c 20 | 61 73 20 61 20 6c 6f 67 |e shell |as a log|
|00000370| 69 6e 20 73 68 65 6c 6c | 20 61 6e 64 20 66 69 6c |in shell| and fil|
|00000380| 65 73 20 6c 69 6b 65 20 | 2e 6c 6f 67 69 6e 0a 28 |es like |.login.(|
|00000390| 74 63 73 68 29 20 61 6e | 64 20 2e 62 61 73 68 5f |tcsh) an|d .bash_|
|000003a0| 70 72 6f 66 69 6c 65 20 | 28 62 61 73 68 29 20 61 |profile |(bash) a|
|000003b0| 72 65 20 6e 6f 74 20 72 | 75 6e 2e 0a 6e 69 6c 20 |re not r|un..nil |
|000003c0| 6d 65 61 6e 73 20 72 75 | 6e 20 6e 6f 20 63 6f 6d |means ru|n no com|
|000003d0| 6d 61 6e 64 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |mands...|(defvar |
|000003e0| 72 65 6d 6f 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 72 |remote-c|ompile-r|
|000003f0| 75 6e 2d 62 65 66 6f 72 | 65 20 6e 69 6c 20 28 23 |un-befor|e nil (#|
|00000400| 24 20 2e 20 2d 37 34 35 | 29 29 0a 23 40 36 34 20 |$ . -745|)).#@64 |
|00000410| 2a 4e 6f 6e 2d 6e 69 6c | 20 6d 65 61 6e 73 20 70 |*Non-nil| means p|
|00000420| 72 6f 6d 70 74 20 66 6f | 72 20 68 6f 73 74 20 69 |rompt fo|r host i|
|00000430| 66 20 6e 6f 74 20 61 76 | 61 69 6c 61 62 6c 65 20 |f not av|ailable |
|00000440| 66 72 6f 6d 20 66 69 6c | 65 6e 61 6d 65 2e 1f 0a |from fil|ename...|
|00000450| 28 64 65 66 76 61 72 20 | 72 65 6d 6f 74 65 2d 63 |(defvar |remote-c|
|00000460| 6f 6d 70 69 6c 65 2d 70 | 72 6f 6d 70 74 2d 66 6f |ompile-p|rompt-fo|
|00000470| 72 2d 68 6f 73 74 20 6e | 69 6c 20 28 23 24 20 2e |r-host n|il (#$ .|
|00000480| 20 2d 31 30 34 30 29 29 | 0a 23 40 36 34 20 2a 4e | -1040))|.#@64 *N|
|00000490| 6f 6e 2d 6e 69 6c 20 6d | 65 61 6e 73 20 70 72 6f |on-nil m|eans pro|
|000004a0| 6d 70 74 20 66 6f 72 20 | 75 73 65 72 20 69 66 20 |mpt for |user if |
|000004b0| 6e 6f 74 20 61 76 61 69 | 6c 61 62 6c 65 20 66 72 |not avai|lable fr|
|000004c0| 6f 6d 20 66 69 6c 65 6e | 61 6d 65 2e 1f 0a 28 64 |om filen|ame...(d|
|000004d0| 65 66 76 61 72 20 72 65 | 6d 6f 74 65 2d 63 6f 6d |efvar re|mote-com|
|000004e0| 70 69 6c 65 2d 70 72 6f | 6d 70 74 2d 66 6f 72 2d |pile-pro|mpt-for-|
|000004f0| 75 73 65 72 20 6e 69 6c | 20 28 23 24 20 2e 20 2d |user nil| (#$ . -|
|00000500| 31 31 36 36 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 |1166)).(|byte-cod|
|00000510| 65 20 22 c0 c1 21 84 08 | 00 c2 11 c1 0b 42 13 c0 |e "..!..|.....B..|
|00000520| c4 21 84 14 00 c2 14 c4 | 0b 42 13 c2 87 22 20 5b |.!......|.B..." [|
|00000530| 62 6f 75 6e 64 70 20 72 | 65 6d 6f 74 65 2d 63 6f |boundp r|emote-co|
|00000540| 6d 70 69 6c 65 2d 68 6f | 73 74 2d 68 69 73 74 6f |mpile-ho|st-histo|
|00000550| 72 79 20 6e 69 6c 20 63 | 75 72 72 65 6e 74 2d 6c |ry nil c|urrent-l|
|00000560| 6f 61 64 2d 6c 69 73 74 | 20 72 65 6d 6f 74 65 2d |oad-list| remote-|
|00000570| 63 6f 6d 70 69 6c 65 2d | 75 73 65 72 2d 68 69 73 |compile-|user-his|
|00000580| 74 6f 72 79 5d 20 32 29 | 0a 23 40 38 36 20 43 6f |tory] 2)|.#@86 Co|
|00000590| 6d 70 69 6c 65 20 74 68 | 65 20 74 68 65 20 63 75 |mpile th|e the cu|
|000005a0| 72 72 65 6e 74 20 62 75 | 66 66 65 72 27 73 20 64 |rrent bu|ffer's d|
|000005b0| 69 72 65 63 74 6f 72 79 | 20 6f 6e 20 48 4f 53 54 |irectory| on HOST|
|000005c0| 2e 20 20 4c 6f 67 20 69 | 6e 20 61 73 20 55 53 45 |.  Log i|n as USE|
|000005d0| 52 2e 0a 53 65 65 20 5c | 5b 63 6f 6d 70 69 6c 65 |R..See \|[compile|
|000005e0| 5d 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |]...(def|alias 'r|
|000005f0| 65 6d 6f 74 65 2d 63 6f | 6d 70 69 6c 65 20 23 5b |emote-co|mpile #[|
|00000600| 28 68 6f 73 74 20 75 73 | 65 72 20 63 6f 6d 6d 61 |(host us|er comma|
|00000610| 6e 64 29 20 22 08 11 5c | 6e 83 0b 00 5c 6e 13 82 |nd) "..\|n...\n..|
|00000620| 12 00 0b 84 12 00 c4 20 | 13 c5 c6 21 85 1c 00 c7 |....... |...!....|
|00000630| 0e 08 21 1e 09 ca cb 0e | 5c 66 0e 0d 0b 0e 0e 83 |..!.....|\f......|
|00000640| 31 00 0e 0e cf 50 82 32 | 00 d0 0e 09 83 3e 00 d1 |1....P.2|.....>..|
|00000650| 0e 09 38 82 40 00 0e 08 | 09 26 07 19 0e 0d 16 12 |..8.@...|.&......|
|00000660| d3 d4 89 5c 22 88 d5 09 | d6 5c 22 88 8a 0e 17 71 |...\"...|.\"....q|
|00000670| 88 d8 0e 0d d9 51 89 16 | 1a 2b 87 22 20 5b 63 6f |.....Q..|.+." [co|
|00000680| 6d 6d 61 6e 64 20 63 6f | 6d 70 69 6c 65 2d 63 6f |mmand co|mpile-co|
|00000690| 6d 6d 61 6e 64 20 75 73 | 65 72 20 72 65 6d 6f 74 |mmand us|er remot|
|000006a0| 65 2d 63 6f 6d 70 69 6c | 65 2d 75 73 65 72 20 75 |e-compil|e-user u|
|000006b0| 73 65 72 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 66 |ser-logi|n-name f|
|000006c0| 65 61 74 75 72 65 70 20 | 61 6e 67 65 2d 66 74 70 |eaturep |ange-ftp|
|000006d0| 20 61 6e 67 65 2d 66 74 | 70 2d 66 74 70 2d 6e 61 | ange-ft|p-ftp-na|
|000006e0| 6d 65 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |me defau|lt-direc|
|000006f0| 74 6f 72 79 20 70 61 72 | 73 65 64 20 66 6f 72 6d |tory par|sed form|
|00000700| 61 74 20 22 25 73 20 25 | 73 20 2d 6c 20 25 73 20 |at "%s %|s -l %s |
|00000710| 5c 22 28 25 73 63 64 20 | 25 73 3b 20 25 73 29 5c |\"(%scd |%s; %s)\|
|00000720| 22 22 20 72 65 6d 6f 74 | 65 2d 73 68 65 6c 6c 2d |"" remot|e-shell-|
|00000730| 70 72 6f 67 72 61 6d 20 | 68 6f 73 74 20 72 65 6d |program |host rem|
|00000740| 6f 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 72 75 6e 2d |ote-comp|ile-run-|
|00000750| 62 65 66 6f 72 65 20 22 | 3b 20 22 20 22 22 20 32 |before "|; " "" 2|
|00000760| 20 72 65 6d 6f 74 65 2d | 63 6f 6d 70 69 6c 65 2d | remote-|compile-|
|00000770| 68 6f 73 74 20 73 61 76 | 65 2d 73 6f 6d 65 2d 62 |host sav|e-some-b|
|00000780| 75 66 66 65 72 73 20 6e | 69 6c 20 63 6f 6d 70 69 |uffers n|il compi|
|00000790| 6c 65 2d 69 6e 74 65 72 | 6e 61 6c 20 22 4e 6f 20 |le-inter|nal "No |
|000007a0| 6d 6f 72 65 20 65 72 72 | 6f 72 73 22 20 63 6f 6d |more err|ors" com|
|000007b0| 70 69 6c 61 74 69 6f 6e | 2d 6c 61 73 74 2d 62 75 |pilation|-last-bu|
|000007c0| 66 66 65 72 20 22 2f 22 | 20 22 3a 22 20 63 6f 6d |ffer "/"| ":" com|
|000007d0| 69 6e 74 2d 66 69 6c 65 | 2d 6e 61 6d 65 2d 70 72 |int-file|-name-pr|
|000007e0| 65 66 69 78 5d 20 38 20 | 28 23 24 20 2e 20 31 34 |efix] 8 |(#$ . 14|
|000007f0| 32 32 29 20 28 6c 65 74 | 20 28 28 70 61 72 73 65 |22) (let| ((parse|
|00000800| 64 20 28 6f 72 20 28 61 | 6e 64 20 28 66 65 61 74 |d (or (a|nd (feat|
|00000810| 75 72 65 70 20 28 71 75 | 6f 74 65 20 61 6e 67 65 |urep (qu|ote ange|
|00000820| 2d 66 74 70 29 29 20 28 | 61 6e 67 65 2d 66 74 70 |-ftp)) (|ange-ftp|
|00000830| 2d 66 74 70 2d 6e 61 6d | 65 20 64 65 66 61 75 6c |-ftp-nam|e defaul|
|00000840| 74 2d 64 69 72 65 63 74 | 6f 72 79 29 29 29 29 20 |t-direct|ory)))) |
|00000850| 68 6f 73 74 20 75 73 65 | 72 20 63 6f 6d 6d 61 6e |host use|r comman|
|00000860| 64 20 70 72 6f 6d 70 74 | 29 20 28 69 66 20 70 61 |d prompt|) (if pa|
|00000870| 72 73 65 64 20 28 73 65 | 74 71 20 68 6f 73 74 20 |rsed (se|tq host |
|00000880| 28 6e 74 68 20 30 20 70 | 61 72 73 65 64 29 20 75 |(nth 0 p|arsed) u|
|00000890| 73 65 72 20 28 6e 74 68 | 20 31 20 70 61 72 73 65 |ser (nth| 1 parse|
|000008a0| 64 29 29 20 28 73 65 74 | 71 20 70 72 6f 6d 70 74 |d)) (set|q prompt|
|000008b0| 20 28 69 66 20 28 73 74 | 72 69 6e 67 70 20 72 65 | (if (st|ringp re|
|000008c0| 6d 6f 74 65 2d 63 6f 6d | 70 69 6c 65 2d 68 6f 73 |mote-com|pile-hos|
|000008d0| 74 29 20 28 66 6f 72 6d | 61 74 20 22 43 6f 6d 70 |t) (form|at "Comp|
|000008e0| 69 6c 65 20 6f 6e 20 68 | 6f 73 74 20 28 64 65 66 |ile on h|ost (def|
|000008f0| 61 75 6c 74 20 25 73 29 | 3a 20 22 20 72 65 6d 6f |ault %s)|: " remo|
|00000900| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 68 6f 73 74 29 |te-compi|le-host)|
|00000910| 20 22 43 6f 6d 70 69 6c | 65 20 6f 6e 20 68 6f 73 | "Compil|e on hos|
|00000920| 74 3a 20 22 29 20 68 6f | 73 74 20 28 69 66 20 28 |t: ") ho|st (if (|
|00000930| 6f 72 20 72 65 6d 6f 74 | 65 2d 63 6f 6d 70 69 6c |or remot|e-compil|
|00000940| 65 2d 70 72 6f 6d 70 74 | 2d 66 6f 72 2d 68 6f 73 |e-prompt|-for-hos|
|00000950| 74 20 28 6e 75 6c 6c 20 | 72 65 6d 6f 74 65 2d 63 |t (null |remote-c|
|00000960| 6f 6d 70 69 6c 65 2d 68 | 6f 73 74 29 29 20 28 72 |ompile-h|ost)) (r|
|00000970| 65 61 64 2d 66 72 6f 6d | 2d 6d 69 6e 69 62 75 66 |ead-from|-minibuf|
|00000980| 66 65 72 20 70 72 6f 6d | 70 74 20 22 22 20 6e 69 |fer prom|pt "" ni|
|00000990| 6c 20 6e 69 6c 20 28 71 | 75 6f 74 65 20 72 65 6d |l nil (q|uote rem|
|000009a0| 6f 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 68 6f 73 74 |ote-comp|ile-host|
|000009b0| 2d 68 69 73 74 6f 72 79 | 29 29 20 72 65 6d 6f 74 |-history|)) remot|
|000009c0| 65 2d 63 6f 6d 70 69 6c | 65 2d 68 6f 73 74 29 20 |e-compil|e-host) |
|000009d0| 75 73 65 72 20 28 69 66 | 20 72 65 6d 6f 74 65 2d |user (if| remote-|
|000009e0| 63 6f 6d 70 69 6c 65 2d | 70 72 6f 6d 70 74 2d 66 |compile-|prompt-f|
|000009f0| 6f 72 2d 75 73 65 72 20 | 28 72 65 61 64 2d 66 72 |or-user |(read-fr|
|00000a00| 6f 6d 2d 6d 69 6e 69 62 | 75 66 66 65 72 20 28 66 |om-minib|uffer (f|
|00000a10| 6f 72 6d 61 74 20 22 43 | 6f 6d 70 69 6c 65 20 62 |ormat "C|ompile b|
|00000a20| 79 20 75 73 65 72 20 28 | 64 65 66 61 75 6c 74 20 |y user (|default |
|00000a30| 25 73 29 22 20 28 6f 72 | 20 72 65 6d 6f 74 65 2d |%s)" (or| remote-|
|00000a40| 63 6f 6d 70 69 6c 65 2d | 75 73 65 72 20 28 75 73 |compile-|user (us|
|00000a50| 65 72 2d 6c 6f 67 69 6e | 2d 6e 61 6d 65 29 29 29 |er-login|-name)))|
|00000a60| 20 22 22 20 6e 69 6c 20 | 6e 69 6c 20 28 71 75 6f | "" nil |nil (quo|
|00000a70| 74 65 20 72 65 6d 6f 74 | 65 2d 63 6f 6d 70 69 6c |te remot|e-compil|
|00000a80| 65 2d 75 73 65 72 2d 68 | 69 73 74 6f 72 79 29 29 |e-user-h|istory))|
|00000a90| 20 72 65 6d 6f 74 65 2d | 63 6f 6d 70 69 6c 65 2d | remote-|compile-|
|00000aa0| 75 73 65 72 29 29 29 20 | 28 73 65 74 71 20 63 6f |user))) |(setq co|
|00000ab0| 6d 6d 61 6e 64 20 28 72 | 65 61 64 2d 66 72 6f 6d |mmand (r|ead-from|
|00000ac0| 2d 6d 69 6e 69 62 75 66 | 66 65 72 20 22 43 6f 6d |-minibuf|fer "Com|
|00000ad0| 70 69 6c 65 20 63 6f 6d | 6d 61 6e 64 3a 20 22 20 |pile com|mand: " |
|00000ae0| 63 6f 6d 70 69 6c 65 2d | 63 6f 6d 6d 61 6e 64 20 |compile-|command |
|00000af0| 6e 69 6c 20 6e 69 6c 20 | 28 71 75 6f 74 65 20 28 |nil nil |(quote (|
|00000b00| 63 6f 6d 70 69 6c 65 2d | 68 69 73 74 6f 72 79 20 |compile-|history |
|00000b10| 2e 20 31 29 29 29 29 20 | 28 6c 69 73 74 20 28 69 |. 1)))) |(list (i|
|00000b20| 66 20 28 73 74 72 69 6e | 67 3d 20 68 6f 73 74 20 |f (strin|g= host |
|00000b30| 22 22 29 20 72 65 6d 6f | 74 65 2d 63 6f 6d 70 69 |"") remo|te-compi|
|00000b40| 6c 65 2d 68 6f 73 74 20 | 68 6f 73 74 29 20 28 69 |le-host |host) (i|
|00000b50| 66 20 28 73 74 72 69 6e | 67 3d 20 75 73 65 72 20 |f (strin|g= user |
|00000b60| 22 22 29 20 72 65 6d 6f | 74 65 2d 63 6f 6d 70 69 |"") remo|te-compi|
|00000b70| 6c 65 2d 75 73 65 72 20 | 75 73 65 72 29 20 63 6f |le-user |user) co|
|00000b80| 6d 6d 61 6e 64 29 29 5d | 29 0a                   |mmand))]|).      |
+--------+-------------------------+-------------------------+--------+--------+